home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amossible / spritesnbobs / bobcol1.bak / bobcol1.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1980-05-17  |  310 b   |  18 lines
  1. Screen Open 0,320,256,16,Lowres
  2. Flash Off 
  3. Curs Off 
  4. Cls 0
  5. Load "ATTBG:JUMP.Abk"
  6. Get Sprite Palette 
  7. Double Buffer 
  8. X=150
  9. Y=110
  10. Bob 2,20,50,3
  11. Do 
  12. If Joy(1)=1 Then Y=Y-1
  13. If Joy(1)=2 Then Y=Y+1
  14. If Joy(1)=4 Then X=X-1
  15. If Joy(1)=8 Then X=X+1
  16. If Bob Col(1) Then Print At(10,10);"COLLISION DETECTED"
  17. Bob 1,X,Y,1
  18. Loop